﻿'   
'
'   g10EXETryItVB -               Copyright (C) 2011 PH Informática, SA.
'
'   This program is free software: you can redistribute it and/or modify
'   it under the terms of the GNU General Public License as published by
'   the  Free Software Foundation, either version 3 of the  License,  or
'   (at your option) any later version.
'
'   This  program  is distributed in  the hope that it will  be  useful,
'   but  WITHOUT  ANY  WARRANTY; without even the  implied  warranty  of
'   MERCHANTABILITY  or  FITNESS  FOR  A  PARTICULAR  PURPOSE.  See  the
'   GNU General Public License for more details.
'
'   You  should have received  a copy of  the GNU General Public License
'   along with this program. If not, see <http://www.gnu.org/licenses/>.
'
'

Public Class frmInicial

    Private Sub SobreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SobreToolStripMenuItem.Click

        Dim about As New SplashScreen1
        about.ShowDialog()

        Exit Sub

        Dim sMsg As String
        sMsg = "g10EXETryItVB é uma aplicação WinForms que se destina a demonstrar" & vbCrLf & _
            "formas de interagir com a camada de webServices GISMAT-g10." & vbCrLf & _
            "É fornecido tal como está sem qualquer garantia de utilidade que não" & vbCrLf & _
            "a atrás expressa."
        MsgBox(sMsg)

    End Sub

    Private Sub frmInicial_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub mnuMapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuMapa.Click

        Dim f As New frmMapa
        f.Show()

    End Sub

End Class
